home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 October / Macworld (1998-10).dmg / Serious Demos / Agamik BarCoding / Agamik BarCoder Demo 3.03 / Agamik BarCoder Demo 3.03.rsrc / STR#_4001.txt < prev    next >
Text File  |  1998-05-23  |  5KB  |  531 lines
  1. 0 J 0 j 6 w 4 M []0 d
  2.  
  3. 0 i
  4.  
  5. 1 g
  6.  
  7. 0 O
  8.  
  9. 0 A
  10.  
  11. %%EndSetup
  12.  
  13. Agamik_Barcoder /initialize get exec
  14.  
  15. Agamik_customcolor /initialize get exec
  16.  
  17. Agamik_cshow /initialize get exec
  18.  
  19. %%BeginSetup
  20.  
  21. %%EndProlog
  22.  
  23. %%EndProcSet
  24.  
  25. setpacking
  26.  
  27. currentdict readonly pop end
  28.  
  29. currentdict readonly pop end
  30.  
  31. /setcustomcolor { 2 npop } bind def
  32.  
  33. /setcmykcolor { 4 npop } bind def
  34.  
  35. /setgray { pop } bind def
  36.  
  37. nc begin
  38.  
  39. /nc 3 dict def
  40.  
  41. /A { pop } def
  42.  
  43. } def
  44.  
  45. /_lp /none ddef
  46.  
  47. /_pss { _sc ss } ddef
  48.  
  49. /_ps { _sc stroke } ddef
  50.  
  51. } ddef
  52.  
  53. } if
  54.  
  55. /_lp /stroke ddef
  56.  
  57. _is _gs 1 exch sub setcustomcolor
  58.  
  59. _os setoverprint
  60.  
  61. _lp /stroke ne {
  62.  
  63. /_sc {
  64.  
  65. /_is exch ddef
  66.  
  67. findcmykcustomcolor
  68.  
  69. /_gs exch ddef
  70.  
  71. /X {
  72.  
  73. } def
  74.  
  75. /_lp /none ddef
  76.  
  77. /_psf { _fc exch pop ashow } ddef
  78.  
  79. /_pf { _fc fill } ddef
  80.  
  81. } ddef
  82.  
  83. } if
  84.  
  85. /_lp /fill ddef
  86.  
  87. _if _gf 1 exch sub setcustomcolor
  88.  
  89. _of setoverprint
  90.  
  91. _lp /fill ne {
  92.  
  93. /_fc {
  94.  
  95. /_if exch ddef
  96.  
  97. findcmykcustomcolor
  98.  
  99. /_gf exch ddef
  100.  
  101. /x {
  102.  
  103. } def
  104.  
  105. /_lp /none ddef
  106.  
  107. /_pss { _sc ss } ddef
  108.  
  109. /_ps { _sc stroke } ddef
  110.  
  111. } ddef
  112.  
  113. } if
  114.  
  115. /_lp /stroke ddef
  116.  
  117. _gs setgray
  118.  
  119. _os setoverprint
  120.  
  121. _lp /stroke ne {
  122.  
  123. /_sc {
  124.  
  125. /_gs exch ddef
  126.  
  127. /G {
  128.  
  129. } def
  130.  
  131. /_lp /none ddef
  132.  
  133. /_psf { _fc exch pop ashow } ddef
  134.  
  135. /_pf { _fc fill } ddef
  136.  
  137. } ddef
  138.  
  139. } if
  140.  
  141. /_lp /fill ddef
  142.  
  143. _gf setgray
  144.  
  145. _of setoverprint
  146.  
  147. _lp /fill ne {
  148.  
  149. /_fc {
  150.  
  151. /_gf exch ddef
  152.  
  153. /g {
  154.  
  155. /O { 0 ne /_of exch ddef /_lp /none ddef } def
  156.  
  157. /S { _ps } def
  158.  
  159. /f { closepath F } def
  160.  
  161. /F { _pf } def
  162.  
  163. /w { setlinewidth } def
  164.  
  165. /M { setmiterlimit } def
  166.  
  167. /J { setlinecap } def
  168.  
  169. /j { setlinejoin } def
  170.  
  171. /i { dup 0 eq { pop cf } if setflat } def
  172.  
  173. /cf currentflat def
  174.  
  175. /d { setdash } def
  176.  
  177. } ifelse
  178.  
  179. /m { pl moveto } def
  180.  
  181. /L /l load def
  182.  
  183. /l { pl lineto } def
  184.  
  185. /Y /y load def
  186.  
  187. /y { pl 2 copy curveto } def
  188.  
  189. /V /v load def
  190.  
  191. /v { currentpoint 6 2 roll pl curveto } def
  192.  
  193. /C /c load def
  194.  
  195. /c    { pl curveto } def
  196.  
  197. {
  198.  
  199. }
  200.  
  201. /m { moveto } def
  202.  
  203. /L /l load def
  204.  
  205. /l { lineto } def
  206.  
  207. /Y /y load def
  208.  
  209. /y { 2 copy curveto } def
  210.  
  211. /V /v load def
  212.  
  213. /v { currentpoint 6 2 roll curveto } def
  214.  
  215. /C /c load def
  216.  
  217. /c { curveto } def
  218.  
  219. { pop true setstrokeadjust
  220.  
  221. /setstrokeadjust where
  222.  
  223. } def
  224.  
  225. itransform
  226.  
  227. 0.25 sub round 0.25 add exch
  228.  
  229. 0.25 sub round 0.25 add exch
  230.  
  231. transform
  232.  
  233. /pl {
  234.  
  235. } def
  236.  
  237. 3 npop
  238.  
  239. } exch cshow
  240.  
  241. 2 copy rmoveto
  242.  
  243. moveto
  244.  
  245. grestore
  246.  
  247. stroke
  248.  
  249. 4 index setmatrix
  250.  
  251. currentpoint
  252.  
  253. false charpath
  254.  
  255. gsave
  256.  
  257. 2 copy 0 exch put pop
  258.  
  259. 2 npop (0) exch
  260.  
  261. 4 1 roll {
  262.  
  263. 3 -1 roll pop
  264.  
  265. /ss {
  266.  
  267. } def
  268.  
  269. 4 1 roll 3 1 roll 1 sub mul add
  270.  
  271. exch 5 -1 roll 3 index 1 sub mul add
  272.  
  273. stringwidth
  274.  
  275. /sw {
  276.  
  277. /npop { { pop } repeat } def
  278.  
  279. /ddef { Agamik_Barcoder_vars 3 1 roll put } def
  280.  
  281. /_ null def
  282.  
  283. /terminate { end end } def
  284.  
  285. } def
  286.  
  287. newpath
  288.  
  289. Agamik_Barcoder_vars begin
  290.  
  291. Agamik_Barcoder begin
  292.  
  293. end
  294.  
  295. end
  296.  
  297. end
  298.  
  299. pop pop } forall
  300.  
  301. dup xcheck { bind } if
  302.  
  303. Agamik_Barcoder dup /nc get begin {
  304.  
  305. Agamik_Barcoder begin
  306.  
  307. /_i null def
  308.  
  309. /_sdd null def
  310.  
  311. /_sd null def
  312.  
  313. /_sm null def
  314.  
  315. /_fdd null def
  316.  
  317. /_fd null def
  318.  
  319. /_fm null def
  320.  
  321. /_pm matrix def
  322.  
  323. /_ed 15 dict def
  324.  
  325. /_pd 1 dict def
  326.  
  327. /_sc {} def
  328.  
  329. /_os false def
  330.  
  331. /_is null def
  332.  
  333. /_cs 4 array def
  334.  
  335. /_gs null def
  336.  
  337. /_fc {} def
  338.  
  339. /_of false def
  340.  
  341. /_if null def
  342.  
  343. /_cf 4 array def
  344.  
  345. /_gf null def
  346.  
  347. /t {} def
  348.  
  349. /_tm matrix def
  350.  
  351. /_tl 2 array def
  352.  
  353. /_tt 2 array def
  354.  
  355. /_as null def
  356.  
  357. /_a null def
  358.  
  359. /_pss {} def
  360.  
  361. /_psf {} def
  362.  
  363. /_ps {} def
  364.  
  365. /_pf {} def
  366.  
  367. /_lp /none def
  368.  
  369. userdict /Agamik_Barcoder_vars 31 dict dup begin put
  370.  
  371. /initialize {
  372.  
  373. userdict /Agamik_Barcoder 73 dict dup begin put
  374.  
  375. currentpacking true setpacking
  376.  
  377. %%BeginProcSet: Agamik_Barcoder 1.20 0
  378.  
  379. %%EndProcSet
  380.  
  381. setpacking
  382.  
  383. currentdict readonly pop end
  384.  
  385. /setoverprint { pop } def
  386.  
  387. } def
  388.  
  389. setcmykcolor
  390.  
  391. 5 -1 roll pop
  392.  
  393. 4 { 4 index mul 4 1 roll } repeat
  394.  
  395. aload pop pop
  396.  
  397. exch
  398.  
  399. /setcustomcolor {
  400.  
  401. /findcmykcustomcolor { 5 packedarray }  def
  402.  
  403. currentdict Agamik_customcolor eq { end } if } def
  404.  
  405. /terminate {
  406.  
  407. } def
  408.  
  409. } ifelse
  410.  
  411. Agamik_customcolor begin
  412.  
  413. end
  414.  
  415. } forall
  416.  
  417. pop pop
  418.  
  419. dup xcheck { bind } if
  420.  
  421. { Agamik_customcolor begin Agamik_customcolor {
  422.  
  423. /setcustomcolor where { pop }
  424.  
  425. /initialize {
  426.  
  427. userdict /Agamik_customcolor 5 dict dup begin put
  428.  
  429. currentpacking true setpacking
  430.  
  431. %%BeginProcSet: Agamik_customcolor 1.0 0
  432.  
  433. %%EndProcSet
  434.  
  435. setpacking
  436.  
  437. currentdict readonly pop end
  438.  
  439. } def
  440.  
  441. } forall
  442.  
  443. 0 0 Agamik_cshow_vars /_cshow get exec
  444.  
  445. exch put {
  446.  
  447. exch /_cshow
  448.  
  449. Agamik_cshow_vars
  450.  
  451. exch
  452.  
  453. /cshow {
  454.  
  455. /terminate {} def
  456.  
  457. } def
  458.  
  459. } ifelse
  460.  
  461.  end
  462.  
  463.  end
  464.  
  465. } forall
  466.  
  467. userdict 3 1 roll put
  468.  
  469. dup xcheck { bind } if
  470.  
  471. Agamik_cshow {
  472.  
  473. Agamik_cshow begin
  474.  
  475. /_cshow {} def
  476.  
  477. userdict /Agamik_cshow_vars 1 dict dup begin put
  478.  
  479. /cshow where { pop } {
  480.  
  481. {
  482.  
  483. /initialize
  484.  
  485. userdict /Agamik_cshow 3 dict dup begin put
  486.  
  487. currentpacking true setpacking
  488.  
  489. %%BeginProcSet: Agamik_cshow 1.1 0
  490.  
  491. Agamik_packedarray /initialize get exec
  492.  
  493. %%EndProcSet
  494.  
  495. currentdict readonly pop end
  496.  
  497. /currentpacking { false } def
  498.  
  499. /setpacking { pop } def
  500.  
  501. /packedarray { array astore readonly } def
  502.  
  503. /terminate { } def
  504.  
  505. } def
  506.  
  507. } ifelse
  508.  
  509.  end
  510.  
  511. } forall
  512.  
  513. userdict 3 1 roll put
  514.  
  515. dup xcheck { bind } if
  516.  
  517. /packedarray where { pop } { Agamik_packedarray begin Agamik_packedarray {
  518.  
  519. {
  520.  
  521. /initialize
  522.  
  523. userdict /Agamik_packedarray 5 dict dup begin put
  524.  
  525. %%BeginProcSet: Agamik_packedarray 1.0 0
  526.  
  527. %%EndComments
  528.  
  529. %%DocumentPreview: Macintosh_ColorPic
  530.  
  531.